(sgml-name-char): Ask user with a prompt.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index c9734c2a6c77d4a5e0d9055a17dc1debf8aa894a..5102e87b024a83f507627940294ba36d2ce68df8 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -436,7 +436,7 @@ or M-- for a soft hyphen."
   (interactive "*")
   (insert ?&)
   (or char
-      (setq char (read-quoted-char)))
+      (setq char (read-quoted-char "Enter char or octal number")))
   (delete-backward-char 1)
   (insert char)
   (undo-boundary)